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SERTES~III 8086/8087/808& MACRO ASSEMBLER V1.0 ASSEMBLY OF MODULE NUCLEUS 
CBJECT MCOULE PLACED IN :FI:NUCLUS.03J 
INVOCATION LINE CONTROLS: DEBUG 


LOC CQaJ LINE SOURCE 
1 +1 #.‘STITLE (’KAOS - MAIN NUCLEUS’) 
2 NAME NUCLEUS 
z 
4 sre Intel Corporation Proprietary Information. This 
5 ; listing is supplied under the terms of a license 
6 ; agreement with Intel Corporation and may not he copied 
', ; nor disclosed except in accordance with the terms of 
8g ; the agreement, 
9 
ic 
11 , DATA STRUCTURE DEFINITIONS 
12 
a ; PROCESS CONTROL BLOCK (CPCB) DEFINITION 
14 
pa aan 15 PCB STRUC 
O000 16 NEXT DW 0 7Offset of the next PCB in whatever 
17 7queue this PCB is in. 
1& | 
CO02 19 LAST OW 0 7Offset of the preceding PCB in whatever 
20 7queue this PCB is in. 
21 
0004 22 TYPEF DW 0 7The type field. This is the constant 17H, 
23 vand is used by the processing routines 
24 rto tell what kind of object this is. 
25 7(note: it is named TYPEF because TYPE 
26 vis a reserved word in ASM&6.) 
“ 27 
OC06 28 QUEUE DW 0 sThe offset of the header of whatever queue 
29 7this PCB is in. 
3C 
CQ08 31 PRI DW 0 r7tThe offset of the Ready List Header for 
52 ythe priority of this process. 
22 
COCOA 34 STKOFF OW 0 zThea Segment and Offset of the tor of stack 
COOC 35 STKSEG OW 0 vuhen this process is not running. 
36 
Sei 37 PC83 ENDS 
39 
40 
44 . 
42 ; SEMAPHORE ANDO MAILBOX HEACER OEFINITION 
43 ‘\ -_ 
mice = 44 HEADER STRUC 
C000 | 45 HeAd DW 0 ,7Cffset of the first PCB in a queue of PCBs for 
46 rprocesses blocked here. 
47 7IMPORTANT: Initialized pointing to itself. 
48 
CQ02 4G TAIL Dh 0 rOffset of the last PCB in the quste of PCBs 


aC . for processes blocked here. 


8086/38037/380E&8 


Loc OBJ 


0004 


CQ06 


7O0UC6 
-~0004 
-00Cz 


MACRO ASSEMBLER 


LINE 


51 
52 


KACS - MAIN NUCLEUS 
SOURCE 
DUMMY Dh 0 
CCUNT DW 0 
MHEAD DC 0 
MTATIL DC 0 


HEADER ENDS 


; 

, 

; Since ASM86E 
; members, 

; 

, 

, than the beginning. 
NOBJECTS EQU m6 

- EVENT ECU -4 
PCBP ECU =e 
,NEXT <o 

*L AST aan 

ZIY? SES Se 
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IMPORTANT: Initialiezed pointing to itself. 


The TYPEF field, which contains a 14H for 
7a semaphore header and a 15H for a mailbex 
vheader. It is labeled DUMMY becuase 
7ASM86 won’t let you have the same name in, 
ytwo structures, hut it is really TYPEF. 


7If > Ov it is the number of PC38s for 


riblocked processed queued here. 


7If < O-, it is the negative of the number 

7of messages or signals available here. 

;If = O- there are neither messages nor. 

7nor PCBs here. 

7EXCEPTIONS: On mailboxes there is a transient 
zcondition between the time a process is made 
vyready to run and the time it begins run. 

vin this interval, there is actually one 

ymore message linked to the header than the 
zvcount indicates. This is corrected when the 
vprocess runs and removes the message from the 
vMailbox., Alsos the CLEARLALARM function 

symay remove a message (which happens to be 

yan Alarm Control Block) during this interval 
,causing the system to be short a message 

vywhen the process starts up. This is corrected 
svbhy Receive, which reissues the WAITSEM 
function if there is no message at the 
7MALLbDOX. 


7PRESENT CN MAILBOXES ONLY. Fointer to the 
7first message linked to this mailbox. 


7PRESENT ON MAILBCXES ONLY. Peinter to the 
vlast message linked to this mailbox. 


MULTIPLE RECEIVE CONTROL BLOCK DEFINITION 


allow negative offsets on structure 
some of the objects here are defined with ECU’s 
rather then as structure members. For efficiency reasons, 
the pointers in the structure point to the NEXT field rather 


*NUMBER OF OBJECTS IN STRUCTURE 
RETURN FOR WHICH EVENT OCCURED 
OFFSET OF PCB 


8086/8087/8083 MACRO ASSEMBLER 


C000 


C002 


0004 
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Like 
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140 
142 
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+4 


KACS ~ MAIN NUCLEUS 
SCURCE 
QUEUE -=- 


LINK3ACK EQU 8 


, 

SM PH 
MBX 
RLH 


PCBT 
WMCB 


8 


CPRI 


TPRI 


DATA 
CGROUP 


CCDs 
ASSUME 


> EQECT 
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LINK BACK TO “NEXT FIELC OF FIRST EVENT 


DEFINITION OF QBJECT TYPES FOR TYPEF FIELD 


cQU 14H 
EGU 15H 
EGU 16éH 
EQU 17H 
EGU 18H 


,SEMAPHORE TYPE 

MAILBOX TYPE 

sREADY LIST HEADER TYPE 
7PROCESS CONTROL 8LOCK TYPE 
*,WAIT MULTIPLE CONTROL BLOCK 


GROUP AND EXTERNAL DEFINITIONS 


GROUP DATA 


SEGMENT byte PUSLIC “DATA’ 


THE DATA BASE 
EXTRN . READYLIST:WORD 


PUBLIC -CPYCPRI-TPRI 


DW 1 CUP 162) 
DW _ 2 DUP C2) 
DW 1 OUP (2) 
ENDS 


GROUP CCDE 


7The ready list headers, one per process. 
7Current Process =~ The offset of the control 


block for the process which is currently 
vrunning. 


sCurrent Process -- The offset of the ready 


ylist header for the priority of the the 
vcurrently running process. 


sTop Priority ~- The offset of the ready list 


rvheader of the highest priority ready process. 
This is >= CPRI+ equal if CP is the highest 
priority process, greater is there is a higher 
ypriority process which will run when SCHEDULE 
zis called. 


SEGMENT byte PUBLIC “CODE’ 


CS:CGROUP,DS:OGROUP 


EXTRN HAL TANOCATCHFIRE:NEAR 
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LOC OBJ LINE SCURCE 
154 7 SEND (MAILBOX$0, MESSAGESP) - SENC MESSAGE TO MAILBOX. 
155 a | | 
154 ; PARAMETERS: 
137 ; MAIL30X#0 = OFFSET OF THE MAIL&8CX TO SEND TO. 
158 : MESSAGESP - POINTER TO THE MESSAGE TO BE SENT. 
159 
160 | 
161 PUBLIC SEND/ISEND 
C000 880100 162 SEND1: MCV AX 71 7ABORT IF NOT A MAILBOX 
0003 50 163 PUSH AX 
C004 £80000 E 164 CALL HAL TANCCATCHFIRE 
C007 165 TSEND: 
GQ07 58 166 SEND: PCP AX 7POP RETURN ADDRESS 
Co08 5é 167 PCP SI 7POP MESSAGE ADDRESS 
co09 07 168 PCP =§ 
QOOQA 53 169 POP BX 7POP MAILBOX ADDRESS‘ 
C008 837F0415 170 CMP CBX].TYPEF/M3X TEST IF MAILBOX TYPE 
COOF 75EF 124 JNZ SEND1 | 
0011 9C | 172 PUSHF 7SAVE INTERRPUT FLAG 
0012 FA 173 CLI sDISASLE INTE 
CQ13 26C7O4FFFF 174 MCV eS:CSTJ,/OFFFFH ;s,LINK AT TAIL OF LIST 
C018 8CC1 175 MOV CX,éS ;PUT MESSAGE BASE IN CX 
CO1A 817FO8FFFF 176 CMP WORD PTR CBX].MHEAD,/OFFFFH 
CO1F 7508 177 JNZ SEND2 ZIF ITEMS ALREADY IN LIST 
C021 897708 >» 478 MCV WORD PTR CBXIJ.MHEAD/SI ZMOVE APPROPRIATE POINTER TO MHEAD 
0024 894F0A 179 MCV WORD PTR C3X].MHEAD+2,CX | 
0027 =BOA | 1&0 JMP SHORT SEND3 FELSE, 
0029 C47FOC 181 SEND2: LES | ODI-/CBXIJeMTAIL. LINK TO END OF LIST 
CO2C 268935 182 | MOV ES:CDII,SI 
CO2F 26894002 183 MOV ES:CDI+2],CX 
C033 89770C 184 SEND3: MOV WORD PTR CBXIJ.MTAIL/SI ZSET UP MTAIL 
0035 894FO0E 125 MOV WORD PTR CBXI.MTAIL+2-CX 
186 
0039 FF4FO6 187 DEC C8x].COUNT 7CHECK SEMAPHORE 
Q03c 7d1C 128 JGE SIGS 7SIGNAL SEMAPHORE IF NEEDED 
GCO3E 9D 189 POPF 7RESTORE INTERRUPT FLAG 
CO3SF FFEO 190 JMP AX ,RETURN 
191 
192 


+1. $ EJECT 
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LOC 


O3aJ 


B 80200 
50 
E80000 


28 

38 
837F0414 
75F1 

9C 

FA 


FF4FO6 
7903 
9D 
FFEQ 


8837 
837C0417 
1429 


FF4706 
&B7C08 
E95DFC 
B8B4DFA 


831D 

8387502 
&91C 

897702 
885006 
FF4F06 
&3C70A 


Beco 


8B7DFE 
8B75FE 
E3807 


8B3C 
893F 
&95002 


mm 


MACRO ASSEMBLER 


aA dA > dd 
SO 3 SO NO SO 


SIG1: 


ISIGNAL: 
SIGNAL: 
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SIGNAL CSEMAPHORESO) ~ SIGNAL SEMAPHORE. 


KAGS =~ MAIN NUCLEUS 
SGURCE 
,ae 
7 
; PARAMETER: 
, 


SEMAPHCRE$O - OFFSET OF THE SEMAPHORE HEADER TO SIGNAL 


PUB LEC 
MCV 
PUSH 
CALL 


PCP 
PCP 
CMP 
JNZ 
PUSHP 
CLE 


DEC 


+ SOS 


POPF 
JMP 


SIGNAL-ISIGNAL 
AXr2 
AX 


HALTANDCATCHFIRE 


AX 

BX 
Caxj.TYPEF,/SMPH 
SiG 


CBX].COUNT 
ales 


AX 


ABORT IF NOT SEMAPHORE 


7POP RETURN ADDRESS 
*7POP SEMAPHORE TOKEN 
TEST FOR SEMAPHORE TYPE 


JRUN WITH INTERRUPTS OFF 
7REDUCE NUMSER WAITING 


7IF SCMEONE WAITING 
RETURN TO CALLER 


7 REMOVE PROCESS FROM SEMAPHORE QUEUE ANG LINK INTO READY LIST 


SiGSs 


MCV 
CMP 
JZ 


PROCESS 


INC 


SIG3: 


MOV 
MOV 
MOV 


MCV 
MCV 
MCV 
MOV 
MOV 
DEC 
ACD 
Leor 


MCV 
MOV 
JMP 


SI,C3X1J.HEAD 
CSTD .TYPEFZPCET 
SIG4 


MULTIPLE RECEIVE 


P8x].COUNT 
DI,CSI+LINKBACK] 
CDItEVENTI,BX 
CX,COI+NOBJECTSI 


BX,COIJ.NEXT 
Si, COTIsLAST 
CSTI.NEXT,8X 
C8XI.LAST,SI 
3X,COLIJ.QUEUE 
CBX2.COUNT 
DI,10 

SIG3 


DI,COI+LINKBACK=~ 


SI,COI+PC3aPI 
SHORT SIG5 


UNLINK PC8 IF A PC8 


MCV 
MCV 
MOV 


DI,CSTII.NEXT 
C8X].HEAD,DI 
COIJ.LAST,BX 


7UNLINK FROM SEMAPHORE QUEUE 
7CHECK IF REMOVED A PCB 
7IF A PCB, THEN GO TO PCB PROCESSING 


7INC COUNT BECAUSE I WILL DEC AGAIN LATER 
7FIND HEAD OF WATT LIST 

*7SAVE OBJECT POINTER 

7CX = COUNT OF OBJECTS BEING WAITED UPON 


78X => NEXT ITEM 

7SI => LAST ITEM 

CLOSE LINKS 

*DECREMENT NUMBER WAITING 


*ADVANCE TO NEXT OBJECT 
7LOOP IF STILL OTHER OBJECTS 


10] ;-FIND TOP OF LIST 
7PUT PCB POINTER IN SI FOR REST OF PROCESSING 


P) 


8086/8087/380&88 MACRO ASSEMBLER KACS - MAIN NUCLEUS 09/01/80 PAGE 


LOC OBJ Line SOURCE 
24g ; LINK INTO READY LIST 
245 
Q092 835C08 250 SLGS;% MOV BX,CSIJ.PRI 7BX = PRI 
CQO95 8B87FQ2 eo} MCV OI,C3X].TAIL 7OT = TAIL 
COS 897 "02 202 MCV CaxJ.TAIL,SI *NEW TAIL 
G09B &935 255 MCV FCLIIJ.NEXT,STI LINK OF OLD TAIL 
009D 891C 254. MOV CSTJ.NEXT,3X sFIELOCS OF NEW TAIL 
CO9F &97C02 ape) MCV CST].LAST,OI 
GQA2 &95C06 256 MCV CST1.QUEUE,3X 
257 
258 , CHECK FRIORITY 
259 
QQA5 331E&040C fe 260 CMP BX, TPRI 
QOA9 7004 261 JGE SIG6 7IF LOWER PRIORITY CHIGHER VALUE) 
COAB 891E040C R 262 MCV TPRI,8X NEW HIGHEST PRIORITY | 
COAF 9D 205 Si6G:: POCPF *RESTCRE FLAGS 
0080 FFEO 264 JMP AX ~ RETURN TO CALLER 
265 : 


266 +t) -SEJECT 


&086/8087/8088 


LOC 


OOFC 


OBJ 


83C306 
&8B4GFFA 
88D3 


C747041800 
895708 
83C30A 
e2r3 


837706 
837C060C 
7CS5F 
B3C30A 
E2F2 


8BDA 
834FFA 
83877065 
FF4406 
&387C02 
895C02 
E910 
8937 
897F02 
83C30A 
E2es 


&BSEQO0C 


MACRO ASSEMBLER 


KAQS - MAIN NUCLEUS 09/01/80 PAGE 
SCURCE 
a MRECEIVE C8LOCK3S0) - MULTIPLE RECEIVE. 
; 
; PARAMETER: 
, 3LCCK3C - OFFSET OF A MULTIPLE RECEIVE CONTROL BLOCK (MRC38). 
, | , 
; RETURNS: : 
; POINTER TO MESSAGE IF EVENT OCCURRED AT MAILBOX. 
; UNDEFINED IF EVENT OCCURRED AT SEMAPHORE. 
; MRCB.EVENT = OFFSET OF OBJECT AT WHICH EVENT OCCURRED. 
PUBLIC MRECEIVE 
MRECEIVE: 
“PCP Ax 7POP RETURN ADDRESS 
PCP BX 7POP CONTROL BLOCK POINTER 
PUSH AX RESTORE RETURN ADDRESS 
PUSHF *SAVE FLAGS CESP. INTERRUPT) 
ADD BX,6 POINT BX TO FIRST WAIT BLOCK 
MCV CX,CBXtNOBJECTS] -CX GETS REPEAT COUNT 
MOV DX, 3X 7SAVE BX 
MRX1: MCV FRXJ.TYPEF-WMCB INITIALIZE CONSTANT PARTS OF STRUCTURE 
MCV CEX+LINKBACKI,DX 
ACO BX,10 — 
LCOP MRX1 
, LCOK IF AN EVENT ALREADY AVATLABLE 
MRX2s. MCV BX, OX ZREINITIALIZE FOR LOOP UNDER INTERRUPT DISABLE 
| MCV CX,CBX+NOBJECTSI 
CLI 7RUN WITH INTERRUPTS OFF 
MKX33 MCV ST,CBXJ.QUEUE *CHECK IF SIGNAL AVAILABLE AT QUEUE 
MP CSIJ.COUNT,0O 
JL MRX7 IF EVENT FOUND 
ACD BX,10 
LOOP MRX3 
? MUST WAIT -- LINK MRCB INTO SPECIFIED SEMAPHORE AND MAILBCX QUEUES 
MOV 3X, DX REINITIALIZE LOOP ~ WE KNOW WE MUST WAIT 
MCV CX,C8X+NOBJECTSI 
MRX4: MOV SI,C3X].QUEUE ENTER WAIT BLOCK INTO EACH QUEUE 
INC CSIJ.COUNT 7MARK ONE MORE WAITING 
MOV DI,CSTI.TAIL LINK WAIT BLOCK INTO QUEUE 
MCV CSTJ.TAIL,8X 
MCV CDIJsaNEXT,/~BX 
MCV FEXI.NEXT,/SI 
MOV C8xJ.LAST,O1 
ACD BxX,10 
LOOP MRX4 
r — MOVE CURRENT PROCESS TO MRCB AND DISABLE 
MCV ’ DIVCP ,PUT PCB POINTER IN MRCB 
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LOC 


€100 
C102 


C105 
0107 
G10A 
C109 


010F 
0110 
0111 
0112 


OBJ 


&BDA 
SO7FFE 


8835 
885002 
895C02 
8937 


52 
9C 
Ue 
E3AC000 


a3 

8803 
8377FC 
83700415 
7516 
C45C08 
STPSPRRE 
74A1 
26883F 
897C08 
29837F02 
897CCA 
90D 

C3 


FF4406— 
&BDA 
8977FC 
EBDS 


MACRO ASSEMBLER 


LINE 


322 
52.3 


KACS 


SCURCE 


MRX5: 


us 


eJECT 


- MAIN NUCLEUS 


MOV 3X,DX 

MCV CBX+PCBPJ,DI 
MOV SI,COIT.NEXT 
MCV 38X,COIJ.LAST 
MCV PSIJ.LAST,BX 
MCV C32X].NEXT-SI 
PUSH DX 

PUSHF 

PUSH CS 

CALL SCHED 
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,7UNLINK PCB 
7CLOSE LINKS 


7CALL SCHEDULER 


PROCESS RETURNED EVENT INCICATION 


PCP BX 
MCV DX, 3X 

MCV SI, CBX+EVENTI 
CMP CSIJ.TYPEF/MBX 
JNZ MRX6 

LES 8X,CSII1.MHEAD 
CMP 3X,/OFFFFH 

J2 MRX2 

MOV DI-=S: CBX] 

MCV WORD PTR CSIi. 
MOV DI-ES:(BXt2] 
MGV ‘WORD PTR CSI]. 
PCPF 

RET 

EVENT WAS FOUND WHILE 
INC CSIJ].CCUNT 

MOV BX,DX 

MOV CBX+EVENTI-SI 
JMP MRX5 


7PUT WMCB POINTER INTO 8X 
7COPY IN CASE WE HAVE TO REPEAT WAIT 


*CHECK TYPE 
7IF NCT A MAILBOX. 


*MAK= SURE A MESSAGE IS HERE CFOR CLEARALARM) 
*REPEAT WAIT IF NO MESSAGE 


MHEAD,DI 

MHEADt+2,D1 
7RESTORE FLAGS 

SEARCHING 
INCREMENT COUNT 


RESET BX 
7MARK WHICH EVENT HAPPENED 


8 
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LOC 0O8J LINE SCURCE 
360 +7? RECEIVE (MAILBCX$0) - RECEIVE MESSAGE FROM MAILBOX. 
361 ; 
362 ; PARAMETER: 
363 ; MAILBOXSO - OFFSET OF MAILBOX HEADER. 
364 ? 
365 ; RETURNS: | 
366 ; ~ POINTER TO MESSAGE. 
36é7 
3&8 
— 369 PUBLIC RECEIVE 
0143 880300 370 REC1: MCV AX,3 ABORT IF NOT A MAILBOX 
0146 50 | , 371 PUSH AX 
0147 &80000 E 372 CALL HALTANCCATCHFIRE 
G14A | 373 RECEIVE: 
C144 58 374 POP AX 7GET MAILBOX ADDRESS OFF STACK 
C148 SE 375 | PCP Si: 
C14c 83700415 376 CMF  CSTI.TYPEF/MBX FCHECK FOR MAILBOX TYPE 
0150 75F1 377 JNZ REC1 
0152 50 378 PUSH AX 7RESTORE RETURN ADDRESS 
0153 9C 379 PUSHF 7SAVE INTERRUPT FLAG 
0154 FA 3ac Cut | 7CISABLE INTERRUPTS 
381 
C155 FF4406 | 382 REC2: © INC FSIJ.COUNT *CHECK SEMAPHORE 
0158 7207 3&3 JLE REC3 7IF A MESSAGE AVAILABLE 
384 ; 
015A 56 385 PUSH SI 7SAVE MAILBOX ADDRESS 
0158 9C 386 PUSHF FORMAT STACK FOR WAITING ON SEMAPHORE 
C15cC CE 3&7 PUSH CS 
C150 £83400 388 WAT “cys c = 
C1560 5= 7 3&5 PCP SI 7RESTORE MAILBOX ADDRESS 
3906 
0161 C45C08 391 REC3: Les BX,CSIJ.MHEAD sUNLINK MESSAGE FROM QUEUE 
C164 81FBFFFF 392. CMP 3X/OFFFFH 7MAKE SURE A MESSAGE IS HERE CFOR CLEARALARM) 
C168 7428 393 JZ REC2 REPEAT RECEIVE IF NO MESSAGE 
C16A 26883F 394 — MCV DIvES:(8X] | 
0160 &S7C08 355 MCV WORD PTR CSIJ.MHEAD,DI 
0170 268837FO02 356 MOV DI,=ES:CBX+2] 
0174 &97COA 397 MOV WCRD PTR CSIJ.MHEADt2,DI 
0177 9D 398 PCPF RESTORE INTERRUPT FLAG 
C178 C3 i 399 RET 7RETURN 
400 


8086/8087/8088 


LOC 


C179 
C17C 
0170 
C18 

C180 
0181 
CTS2 
0186 
0138 
0189 


C18A 
0180 
018F 
0190 


C192 
C193 
0194 
0196 
C19A 
019C 
OTe 
01A0 
O1A3 


O1A5 
O1A8 
C1A8 
C1AD 
Q1AF 
C182 


OBJ 


B30400 
50 
E80000 


ih 


28 

D& 
83700414 
(35F1 

9C 

FA 


FF4406 
(F053 


fons 


30 

88C6 

8a3EC2ZOC R 
8835 

8B1C 

2910 

897FQ2 

88D8 


@B7FCe2 
897702 
8935 
891C 
897CO02 
895C06 


MACRO ASSEMBLER 


KAQS ~ MAIN NUCLEUS 


SCURC= 


we “Ws No No 


WATT1: 


WAITSEM: 


7 
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WAITSEM CSEMAPHORESO) - WAIT FOR EVENT AT SEMAPHORE. 


PARAMETER? 
SEMAPHORESO - OFFSET 


PUBLIC 
MOV 
PUSH 
CALE 


POP 
POP 
CMP 
JNZ 
PLSHE 
CLI 


INC 
JG 
POPE 
JMP 


WAITSEM 
AXr4 
AX 


HALTANDCATCHFIRE 


AX 

SI 
CSTJ.TYPEF,SMPH 
WAIT1 


CSTJ.COUNT 
WAIT2 


AX 


OF SEMAPHORE HEADER TO WAIT AT. 


ABORT IF NOT A SEMAPHORE 


7POP RETURN ADDRESS 
7POP SEMAPHORE TOKEN 
CHECK FOR SEMAPHCRE TYPE 


,RUN WITH INTERRUPTS OFF 
,REDUCE NUMBER WAITING 


7IF NO SIGNAL AVAILABLE 
,RETURN IF SIGNAL AVAILABLE 


REMOVE PROCESS FROM READY LIST AND LINK INTO SEMAPHORE LIST 


WAIT2: 


WAITER: 


PUSH 
PUSH 
MOV 
MCV 
MCV 
MCV 
MCV 
MCV 
MOV 


MOV 
MCV 
MOV 
MCV 
MOV 
MCV 
JMP 


CS 

AX 

AX,SI 
DI,CPRI 
SI,CDIJ.HEAD 
3X,CSIJ.NEXT 
COIJ.HEAD,8BX 
C8XI].LAST,/OI 
BX, AX 


OI,C8XJ.TAIL 


Caxd.TAIL,SI 


COIJ.NEXT,/SI 
CSIJ.NEXT,8X 
CSIJ.LAST,DI 
CSTIJ.QUEUE,8X 
SCHED — 


7SET UP PROPER STACK FORMAT 


sMUST USE SI REG, SO SAVE SEMAPHORE PTR IN AX 
ZUNLINK ;0I = RL HEAD 

7SI = PROC | 

CLOSE LINKS 


*RESTORE SEMAPHORE POINTER TO 8X 
sLINK -DI = TAIL OF SEMAPHORE LIST 
NEW TAIL 


v,LINK OF CLD TAIL 
FILL IN NEW TAIL 


7 JUMP TO SCHEDULER (NEXT ROUTINE) 


10. 
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LOC 


OBJ 


8B1E0400 
E303 
8303506 
391F 
C4F9 
8837 


1¢ 

55 
8B35E000C 
8C550C 
B9650A 


2936000C 
891=£040C 


891E0200 


8E540C 
8B640A © 
50 

1F 

Cr 


AYA 


Lane 


446é 
447 
448 
445 
450 
451 
452 
453 
454 
435 
456 
437 


KAOQS = MAIN NUCLEUS 


SCURCE 


‘ws Ne Ne Ns New We 


SCHED: 


SCHED1: 
SCHED2: 


Sede CT 
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SCHED - INTERNAL SCHEDULER. 


SCHED SEARCHES THE READY LIST HEADER LIST TO 
FING THE HIGHEST PRIORITY READY PROCESS. IT STARTS 
SEARCHING AT TPRI TO REDUCE SEARCH TIME IF A HIGH. 
PRIORITY PROCESS HAS JUST BEEN MADE READY. 


MCV BX/TPRI 

JMP SHORT SCHED2 

ACC BX 6 

CMP CBX].HEAD,BX 

JE SCHED 

MOV SIT,C8XIJ.HEAD 

PUSH DS 7SAVE SMALL STATE 
PUSH BP 

MOV DI,CP 7SAVE STACK POINTER IN PCB 
MOV COIJ.STKSEG-,SS 

MCV CDIJ.STKOFF,SP 

MOV CP,STI 7SET UP NEW STATE 
MOV TPRI,BX 

MOV CPRI,BX 

MCV SS/CSTI.STKSEG 

MOV SP, CSTI.«STKOFF 

POP 3P 

PCF OS 

IRET 


11 
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Loc OaJ LINE SCURCE 
477 os START - START KAOS NUCLEUS. 
478 ; | 
479 ; PARAMETERS: 
480 ; NONE. 
4814 7 
482 ; DCES NCT RETURN. EVER. 
483 ; 
484 ; 
485 EXTRN TIMERINIT:NEAR | ,) 
426 PUBLIC START woh 4 
C125 £80000 E 487 START: CALL TIMERINIT ,INITIALIZE TIMERS 
0128 830000 z 438 MOV BX,OFFSET DGROURZREADYLIST sSTART FIRST PROCESS 
C1E8 2303 489 MP SHORT START2 oi 
C1ED 83C306 450 START1: ATO BX+6 
C1FO 391F 491 START2: CMP CBXJ.HEAD,BX 
O1F2 74F9 452 3 JE START1 
O1F4 8837 493 MOV SI,/CBXI.HEAD 
O1F6 E308 494 JMP SHORT L 
495 
496 
497 
4G8 
499 Pes SCHEDULE - START HIGHER PRIORITY PROCESS IF ONE READY. 
50a y 4 
5C1 ; PARAMETERS: NONE. 
502 ; 
503 ; RETURNS: NONE. 
504 
505 
5Cé PUBLIC SCHEDULE 
O1F8 507 SCHEODUL=: 
C1F8 58 508 : POP AX REFORMAT STACK FOR IRET 
C1F9 SC 509 PUSHF 
C1FA O& . 510 PUSH CS 
C1FB5 50 511 PUSH AX 
O1FC FA 512 ELa 7NO INTERRUPTS FOR INDIVISIBILITY 
O1FD &312040C | R 513 MCV 3BX-/TPRI TEST PRIORITY 
6201 3812£020C R 514 CMP _ 3X,CPRI , 
C205 7C37 515 Le. SCHED2 IF HIGHER PRIORITY THAN CURRENT 
C207 CF 516 IRET 
| 517 
518 
aa 519 CODE ENOS 
520 END 


ASSEMBLY COMPLETE, NO ERRCRS FOUND 
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